home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
RW_VIDEO.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
3KB
|
46 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME RW_VIDEO.DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
$INCLUDE "DAS-NBT1.INC"
COLOR 7, 0
CLS
? "┌────────────────────────────────────────────────────────────────────────
? "│ fTBoxREAD$ ( Row?, Col?, Rows?, Cols?, Attrs? )
? "│ TBoxWRITE ( SavedScrn$ )
? "├─────────────────────────────────────────────────────────────────────────────
? "│ These routines were the downfall of the windowing routines. As they are
? "│ so fast and compact, the requirements for a complete window popping unit are
? "│ gone forever! Each routine that needs to 'pop' over a screen may now quickly
? "│ and easily do it all themselves! There are 2 ways of reading the screen.
? "│ If Attrs? = 0 then only the text is read else both text and attributes are
? "│ stored.
? "└─────────────────────────────────────────────────────────────────────────────
'┌────────────────────────────
TBoxFILL 12, 2, 13, 78, 177, 15 '│ fill the screen with ▒'s
DELAY 2 '│ Hollywood strikes again!
'│
D$ = " PRESS ANY KEY TO CONTINUE. " '│ pop a message
Scrn$ = fTBoxREAD$( 17, 26, 3, 30, 1 ) '│ save the area under the box
TBoxDRAW 17, 26, 3, 30, 1, 15 '│ draw a box
Tprint 18, 27, D$, 12 '│ print the message
'│
WHILE NOT INSTAT : WEND '│ get a key press
TBoxWRITE Scrn$ '│ restore the screen data
'│
'│ This is getting too easy!!!
'│ Let's go back to GW-BASIC!